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I'll sure be glad when Ross's Great Cross 
Country Moving Adventure gets finished. 
What a pain in the circuitry. Let's see, I'd best 
remind you that we have a new address: 

Ariel Publishing 
P.O. Box 398 
Pateros, WA 98846 

(509)624-3161 

Til be unavailable from May 28th - June 
10th, too. I apologize in advance to those who 
find that an inconvenience. 

Furthermore, I promise that we'll get caught 
up on back ordered stuff (mostly back issues) 
ASAP. I'll have an authentic, flesh and 
blood, full time secretary beginning June 
10th, so we should really start to resemble a 
professional operation soon (knock on 
wood). Don't fret too much about us losing 
your orders or correspondence. They're all 
tucked away in my overstuffed briefcase. 
Isn't that reassuring? 

If it sounds like we're busy here at the Ariel 
igloo, that's 'cuz we are. Things are really 
going pretty well. Though our progress is 
modest by most standards, our overhead is 
low, too, so things are moving steadily 
forward. 

I've received a jillion suggestions about 
topics to cover in The Apprentice, all of 
them good. We've got article fodder for the 
next few years, I think. Feel free to 
contribute a suggestion or two - 1 read 'em all. 
This month's coverage of text editing 
routines is brought to you courtesy of intense 
popular demand (and Prof. Robert Moore, 
who had no idea how timely his submission 
was!) You saved my skin again, Bob, and 
provided a truly outstanding set of routines 
for the readership. I've never seen anything 
this comprehensive published anywhere. I 




Packing up the Ariel igloo 

am proud to bring it to y'all in its entirety 
this month. 



AGS Update 

This is really old news, but... I've been known 
to wax preachy regarding the Apple IIGS 
Toolbox References, They're pretty close to 
indispensable for GS work. At present there 
are two volumes, but Apple recently released 
the Toolbox Reference Update. The Update, 
too, is finding its way onto my "can't do 
without" list. 

First, it corrects outright errors in the 
References. Although there really aren't 
that many, some of the existing errors can 
drive you nuts. The QuickDraw chapter, for 
example, says that calls such as _LineTo 
and _MoveTo take global coordinates. It 
probably didn't take many of you GS types 
too long to figure out that they don't. 

The Update also lists several new calls 
added to the toolboxes since the manuals 
went to press. We've already examined one of 
these within our pages, _Alertwindow. 
Another useful new routine is called 
_RealFreeMem, and it's worth a quick "once 
over" here. 

As you've probably already discovered, the 
Memory Manager function _FreeMem only 
returns the amount of memory not 
currently in use, This is sensible, of course, 
except when we need to know how much 
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more memory would be available If 
purgable blocks were evicted from the joint. 

Thence cometh _RealFreeMem.This new call 
will dutifully report the amount of memory 
available after purgeable blocks are 
removed. As the Update suggests, it gives a 
much more accurate picture of the state of 
the silicon. Note that it does not actually 
execute a purge, it just reports what would 
things would be like if one happened. 

The following snippet shows how to use the 
call: 



RealFreeMem call 



PushLong #0 
_RealFreeMem 
PullLong FreeBytes 



/result space 



* to convert to kilobytes 

Ida FreeBytes+1 

lsr 

lsr 

sta FreeKilobytes 

The conversion to kilobytes code looks odd 
at first blush, but stop and consider that 
converting from bytes to kilobytes entails a 
division by 1024. If you're thinking in terms 
of binary shifts to the right, each of which is 
a division by two, dividing by 1024 means 
ten shifts to the right (LSRs). The lowest 
byte, then, is lost completely. It would be 
shifted into nothingness. 

By leaving the lowest byte out of the process 
altogether and starting to work on 
FreeBytes + 1, we save a few bytes, a few 
instructions, and a few cycles. This is never 
a bad idea when possible, even on the 
memory rich GS. 

Note, too, that the high byte of the four byte 
variable FreeBytes is ignored, this because 
it must always be equal to zero on the GS (at 
least when we're talking about the range of 
memory locations). 

By the way, if you want to add a macro for 
this call to your MEM. MACS library on the 
Merlin disk, make it look like this: 



~RealFreeMem MAC 

PHS 2 
_RealFreeMem MAC 

Tool $2F02 

<« 

(This macro is already in later version of 
Merlin 8/16 and in the new Merlin 16+. I've 
been asked to remember those who don't 
have the "latest and greatest" versions of 
Merlin. The above macro is in their honor.) 

Back at the ranch, I've only scratched the 
surface. The entire Update is packed with 
goodies that make 16 bit life easier. It is 
available for $30 from APDA (800/282- 
2732). Yes, $30 is a bit much for looseleaf 
material. But that is a debate for another 
day (a day that is coming all too quickly, it 
appears). 

Another product I recommend is 
RavenWare's DesignMaster. Author Chris 
Haun has put together a neat code generating 
utility which lets you literally draw your 
windows, dialogs, menus, etc. Priced at $30, 
the package is a genuine d-e-a-1. You draw it, 
and DesignMaster produces the code and 
definition data in either APW or Merlin 
format (for assembly language junkies), or C 
or Forth for you high level types. 
(RavenWare, 23930 Ocean Avenue, #201, 
Torrance, CA 90505). 

AppleFest attendees were also wowed by 
another code generating product due out in 
September. GENESYS supposedly does 
everything except press keys for you. It had 
better, with a price tag of $125. Seriously, 
though, my Test spies say it looks very 
impressive. 

The GS marketplace is warming. That alone 
is neat, but Apple's literal "pre- 
announcement" of System Disk 5.0 at 
AppleFest bodes well for the II, too. The 
Apple II is never going to get the support I 
think it merits, but I'll devour any bones I'm 
thrown (and continue yapping for more). 

Enough news and views. On with Professor 
Moore's show... I think you'll like it. And 
there are no commercial interruptions! 
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&Input 9 &Priet f and &Get 
or 

More Bang for Your Text Bytes 



by Robert C. Moore 
1204 Marton Street 
Laurel, MD 20707 

Editor: These routines put advanced and 
powerful text editing routines right at your 
fingertips. It's the best and most 
comprehensive program of its kind that I've 
ever seen. 

Bob chose to connect his program to 
Applesoft, but it is possible to take the 
ampersand and variable passing routines 
out if you want to operate in a "pure" 
assembly environment. It would be a tad 
trickier, though, if you wanted to switch out 
the Applesoft ROMs altogether. 

i hope you enjoy Bob's code as much as I 
have. 



This article documents an Applesoft 
extension program which I have called 
INPUT.PRINT.GET. The program adds three 
ampersand commands to Applesoft: 

&INPUT x$, 
&PRINT x$, and 
&GETx$. 

The commands behave much as the similar 
commands in AppleWorks' SU2.0BJ do. 

The source code is in a format that is 
compatible with most 6502 assemblers, 
including Merlin; it needs very few 
modifications to be used with most other 
popular assemblers. The source code is very 
heavily commented. This is to facilitate 
customization by readers of The Sourceror's 
Apprentice who choose to modify the 
program for their own special uses. 

The comments in the source code carefully 
document the program's use. They also 
should help you to understand how various 
portions of the program work. Specifically, 
the source code illustrates how to install 
machine language routines above HIMEM in 



both DOS3.3 and ProDOS 8, how to chain 
into the ampersand hook, how to read the 
value of an Applesoft real variable from 
machine language, how to set the value of an 
Applesoft string or real variable from 
machine language, and how to use software 
"switches" and "signatures" to obtain 
multiple functions using a single module of 
code. 

The three ampersand commands are 
installed simply by BRUNning 
INPUT.PRINT.GET prior to assigning any 
string variables. (Under ProDOS 8 and 
BZSIC. SYSTEM you may use the smart run 
[dash] command.) Once installed, the object 
code uses only 1024 bytes of memory. 
During Installation, locations $2096 - 
$24FF are used temporarily. The source code 
explains how this temporary workspace 
may be relocated, if the location I have 
chosen conflicts with any of your previously 
installed programs. 

Zero-page locations $3C through $47 are 
used temporarily by INPUT.PRINT.GET. 
Their original contents are destroyed. (This 
should not be a problem, because these are 
scratchpad locations for ProDOS 8 and the 
system monitor.) All other zero-page 
locations that are normally available to 
assembly language programs remain 
accessible. 

I have attempted to make this program easy 
to use and as compatible as possible with 
other enhancements to Applesoft. The 
program has been tested on an Apple //c, a 
"regular" He, an enhanced lie, and a IIGS. It 
assumes you have Applesoft in ROM, and 
that you are using text page 1 in either 40- or 
80-column mode. 



&inputx$ 

&INPUT x$ prints the current (default) value 
of the specified string variable x$ to the 
current text screen window (40- or 80- 
column display) and then permits you to edit 
the string from the keyboard. 
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The powerful string editing features of the 
"&INPUT x$" command are particularly 
useful: 

ARROW KEYS move the blinking underscore 
"insert" cursor. If the edit string occupies 
more than one line in the text window then 
the up- and down-arrow keys will work. 
This gives you full- screen editing of the 
string. 

DELETE deletes the character to the left of 
the cursor and closes up the resulting gap in 
the edit string. 

CTRL-D deletes the character under the 
cursor and closes up the resulting gap in the 
edit string. 

CTRL-X ("cross out") erases the entire edit 
string. 

CTRL-Y erases from the cursor to the end of 
the edit string. 

CTRL-B moves the cursor to the beginning of 
the edit string. 

CTRL-N moves the cursor to the end of the 
edit string. 

CTRL-C toggles the case of the character 
under the cursor, if it is a letter (alphabetic 
character), then advances the cursor to the 
right. Upper case letters are converted to 
lower case; lower case letters are converted 
to upper case. 

RETURN accepts the current edit string, 
strips off any trailing spaces, and assigns 
the resulting string as the new value for the 
specified string variable, x$. 

ESCape aborts the &INPUT x$. The value of 
the specified string variable, x$, remains at 
the default. The Applesoft real variable ES 
is set to 1. (If ESCape is not used to 
abort an &INPUT x$, the value of variable 
ES will be set to 0.) The abort may be 
detected following &INPUT x$ by using ON 
ESGOTO. 

OPEN-APPLE (when used to modify another 
key) aborts &INPUT x$ and sets the 
Applesoft variable OA to 128 plus the ASCII 
value for the key that was pressed (i.e., high- 
ASCII). (If OPEN-APPLE-key is not used to 
abort &INPUT x$, the value of variable OA 



will be set to zero.) For example, OPEN- 
APPLE-A will abort &INPUT x$ (the value of 
x$ will remain at the default) and set the 
value of variable OA to 193. Use of the 
OPEN-APPLE key to abort &INPUT x$ may 
be detected by using IF OA GOTO. 

SOLID-APPLE (when used to modify another 
key) aborts &INPUT x$ and sets the 
Applesoft variable SA to 128 plus the ASCII 
value for the key that was pressed (i.e., high- 
ASCII). (If SOLID -APPLE-key is not used to 
abort &INPUT x$, the value of variable SA 
will be set to zero.) If both the OPEN-APPLE 
and the SOLID-APPLE keys are used to 
modify another key, then both OA and SA 
will be assigned the high-ASCII value of the 
key that was pressed. 

Another Applesoft variable, FL, may be used 
to set the maximum field length; that is, the 
value of FL will determine the maximum 
length for the edit string. For example, if 
you are using &INPUT x$ to input a filename 
under ProDOS, you would want to set FL = 15 
because that is the maximum length of a 
ProDOS filename. If, during editing, you 
attempt to increase the length of the edit 
string beyond the value of FL, you will be 
bleeped. If you execute &INPUT x$ with a 
default value for x$ that is greater in length 
than the value of FL, you will generate an 
Applesoft STRING TOO LONG error. You will 
get the same error (STRING TOO LONG) if 
your default string is so long that the top line 
scrolls off the top of the text screen window 
as the string is printed. If FL = 0, the 
maximum field length will be 255 
characters. 



&GETx$ 

&GET x$ works as the &INPUT x$ command 
does, except that the string is limited to 
exactly one character, no default string is 
displayed on screen, and ESCape may not be 
used to abort. The Applesoft variables OA 
and SA work as with &INPUT x$. Following 
&GET x$, the high-ASCII value of the key 
that was pressed may be retrieved from 
address $3C = 60 using PEEK( 60). The new 
value of x$ will be the single character that 
was typed at the keyboard. 

&GET x$ may be used to get any encoded 
keypress except CTRL-RESET or OPEN- 
APPLE-CTRL-RESET. To determine if 



Ifte Sourceror's Avvrtntiu 

^^^■M^*"^ ™ ■ ■ ■ ■ IM U ^^^W^^*— ^^^»^— »**^^»^^^W^^^— ^^^P^BmwJ & i M I M * ^^^^^B^M 1M» I J1L I U. ■ U I«WI !!■■■ 



Vol. 1 No. 5 Page 6 



=0012 
=0020 
=0021 
=0022 
=0023 
=0024 
=0025 
=0028 
=003C 

=003C 
=003D 
=003E 
=003F 
=0040 
=0041 
=0042 
=0042 
=0043 
=0043 
=0044 
=0044 
=0045 
=0046 
=0046 
=0047 
=004E 
=006F 
=0073 
=0081 
=0083 
=0085 
=00AB 



=0200 



=03F5 



=057B 



=BE09 
=BEF5 



=BF00 



44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 



INTFLG 

WNDLFT 

WNDWID 

WNDTOP 

WNDBOT 

CH 

CV 

TBASE 

SOURCE 

KEYCOD 

BOTCV 

BOTCH 

OLDCV 

OLDCH 

FLDLEN 

DEST 

STRLEN 

TOPCV 

OAF LAG 

TOPCH 

SAFLAG 

SWITCH 

ESCFLG 

TEMPX 

TEMPY 

RANDOM 

FRETOP 

HIMEM 

VARNAM 

VARPNT 

FORPNT 

STRNG1 



EDBUF 



EQ0 
EQO 
EQU 
EQU 
EQD 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$12 
$20 
$21 
$22 
$23 
$24 
$25 
$28 
$3C 

$3C 
$3D 
$3E 
$3F 
$40 
$41 
$42 
$42 
$43 
$43 
$44 
$44 
$45 
$46 
$46 
$47 
$4E 
$6F 
$73 
$81 
$83 
$85 
$AB 



EQU $200 



$80 if integer, else $00 
Text window left 
Text window width 
Text window top 
Text window bottom + 1 
40-col horizontal cursor 
40-col vertical cursor 
Text base address 
Source address for move 

OA, SA or GET keycode 
Bottom display CV 
Bottom display CH 
Old vertical cursor 
Old horizontal cursor 
Maximum field length 
Dest. address for move 
String length 
V cursor for top 
Open-apple flag 
H cursor for top 
Solid-apple flag 
Software switch 
Escape flag 
X-reg temporary store 
Y-reg temporary store 
Random number 
Bottom of string storage 
Top of free memory 
Variable name 
Variable pointer 
Destination string addr 
String pointer #1 



Buffer for edit string 
Buffer for edit string 



♦Notice that because this program uses the input 
*buffer as a workspace in which to form the edit 
*string, calls to this program from immediate mode 
♦will almost always end in a 7SYNTAX ERROR. This 
♦program was designed for use in deferred mode only. 



AMPERH EQU $3F5 



CH80 EQU $57B 



ERROUT EQU $BE09 
GETBUFR EQU $BEF5 



PROMLI EQU $BF00 



Ampersand hook 
Ampersand hook 

Screen hole usage 
80-col horizontal cursor 

BASIC. SYSTEM entry points 

BASIC error handler 
Get buffer space 

ProDOS entry point 
ProDOS M.L. Interface 
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=cooo 

=C001 
=C010 
=C01F 
=C054 
=C055 
=C061 
=C062 



=00B1 
=00B7 
=D412 
=D539 
=EB2 7 

=DA7B 
=DD6C 
=DEC9 
=DFE3 
=E04F 
=E301 
=E3ED 
=E6FB 
=EAF9 



=0084 
=00BA 
=00BE 



=FBDD 
=FC22 
=FDED 



=2100 



=006A 



111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 



KEYBD 

STORE80 

STROBE 

RD80COL 

PAGE1 

PAGE2 

READOA 

READSA 



CHRGET 

CHRGOT 

ERROR 

GDBUFS 

STORE 

PERMST 
CHKSTR 
SYNERR 
PTRGET 
VARLOC 
SNGFLT 
STRLT2 
CONINT 
MOVFM 



INPTKN 
PRNTKN 
GETTKN 



INITAD 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



$C000 
$C001 
$C010 
$C01F 
$C054 
$C055 
$C061 
$C062 



S00B1 
$00B7 
$D412 
$D539 
$EB27 

$DA7B 
$DD6C 
$DEC9 
$DFE3 
$E04F 
$E301 
$E3ED 
$E6FB 
$EAF9 



$84 
$BA 
$BE 



BEEP EQU $FBDD 
VTAB EQU $FC22 
COUT EQU $FDED 



EQU $2100 



INSTAL EQU $6A 



Hardware page usage 

Keyboard data S strobe 
PAGE2 switches 1 and IX 
Clear keyboard strobe 
Read 80-col switch 
Select page 1 
Select page 2 (or IX) 
Read ' open-apple key 
Read solid-apple key 



Applesoft entry points 

Get next character 
Get current character 
Process error code in X 
Form string in EDBUF 
(FAC) to real variable 
at address FORPNT 
Make temp str permanent 
Check for string var 
Report syntax error 
Get pointer to variable 
Locate real variable 
Float unsigned int (Y) 
Build string descriptor 
Convert (FAC) to byte 
Move (Y,A) into FAC 



Applesoft keyword tokens 

Token for "INPUT" 

Token for "PRINT" or "?" 

Token for "GET" 



Monitor entry points 

Beep speaker 
Vertical tab 
Output a character 



Initial load address for main program 

Initial load address 
for main program must 
be on a page boundary 
(i.e., $xx00) . 



Length of installation code 
Installer length 



ORG INITAD-INSTAL /Initial load address 
for object code 



*During installation the installation code and the 
*main program are BLOADed into INITAD-INSTAL. The 
*memory from that location through INITAD+$3FF is 
♦used temporarily. The value of INITAD should be 
*chosen so that the installation process doesn't 
♦clobber anything important. As an example, if 
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179 










180 










181 










182 










183 










184 










185 










186 










187 










188 










189 










190 










191 










192 










193 










194 










195 










196 










197 










198 










199 










200 










201 










202 










203 










204 










205 










206 










207 










208 










209 










210 










211 










212 










213 


002096: 


AD 


00 


BF 


214 


002099: 


C9 


4C 




215 


00209B; 


F0 


11 


=20AE 


216 
217 


00209D: 


38 






218 


00209E: 


A5 


74 




219 


0020A0: 


E9 


04 




220 


0020A2: 


85 


74 




221 


0020A4: 


85 


70 




222 

223 
224 
225 
226 


0020A6: 


A0 


00 




227 


0020A8: 


84 


73 




228 


0020AA: 


84 


6F 




229 


0020AC: 


FO 


OA 


=20B8 


230 
231 


0020AE: 


A9 


04 




232 


0020BO: 


20 


F5 


BE 


233 
234 
235 
236 


0020B3: 


90 


03 


=20B8 


237 


0020B5: 


4C 


09 


BE 


238 
239 


0020B8: 


AC 


F5 


03 


240 


0020BB: 


8C 


14 


21 


241 


0020BE: 


AC 


F6 


03 


242 


0020C1: 


8C 


15 


21 


243 


0020C4: 


AC 


F7 


03 


244 


0020C7: 


8C 


16 


21 


245 


0020CA: 


8D 


CI 


23 


246 



♦INITAD=$2100, memory from $2096 through $24FF will 
*be used as a temporary buffer during installation. 



INSTALLATION CODE 



*The installer lowers HIMEM by $400 (DOS3.3) or re- 
*quests a 4-page buffer (ProDOS BASIC. SYSTEM) . The 
*main program then is relocated above HIMEM, and the 
♦Applesoft ampersand hook is vectored to it. (The 
*&-hook is chained to whatever ampersand routines 
*were installed previously.) The main program re- 
*duces the amount of free memory by 1024 bytes. 
♦Under ProDOS, a call to FREEBUFR ($BEF8) will re- 
*move this program from memory without resetting 
♦the ampersand hook at $3F5; so if you "disinstall" 
♦by calling FREEBUFR (CALL 48888), be very careful 
♦to reset the ampersand hook! No peace-loving 
♦human being ever calls FREEBUFR, unless it is to 
♦disinstall a block of code he himself recently 
♦installed. A word to the wise is sufficient. 

♦To install the program, simply execute the following 
♦(this assumes the object file is INPUT .PRINT. GET) : 
♦DOS3.3 command: PRINT CHR$ (4) ; "BRUN INPUT .PRINT .GET" 
♦or with ProDOS: PRINT CHR$ (4) ; "-INPUT. PRINT. GET" . 

i 
♦Notice that, under DOS3.3, the pointer to the bottom 
♦(of string storage (FRETOP) will be set equal to the 
♦pointer to the top of string storage (HIMEM) . This 
♦assumes that no strings have been created at the 
♦time the installation code is executed. Make sure 
♦that the BRUN INPUT. PRINT .GET command is executed 
♦before any strings have been created. 



LDA PROMLI 
CMP #$4C 
BEQ PRODOS 



Are we under ProDOS? 
JMP op-code if ProDOS 



It's DOS3.3, so 
lower HIMEM by $4 00. 



SEC 

LDA HIMEM+1 

SBC #4 

STA HIMEM+1 

STA FRETOP+1 ; FRETOP too! 

♦(Assumes no string assignments have been made.) 
♦Accumulator now holds high byte of buffer addr. 

Force low byte to zero 
to simplify relocation. 

Always taken 

PRODOS LDA #4 ; Request 4 25 6-byte pages 

using GETBUFR. 

♦Accumulator now holds high byte of buffer addr. 



LDY 


#0 


STY 


HIMEM 


STY 


FRETOP 


BEQ 


L0 


LDA 


#4 


JSR 


GETBUFR 



L0 



BCC 


L0 


JMP 


ERROUT 


LDY 


AMPERH 


STY 


OLDHOOK 


LDY 


AMPERH+1 


STY 


OLDHOOK+1 


LDY 


AMPERH+2 


STY 


OLDHOOK+2 


STA 


JMP1+2 



Continue if no error, 
else exit thru ERROUT. 

Chain into the 
ampersand hook . 



;Fix JMP instructions 
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0020CD: 


8D 


C6 


23 


247 
248 
249 
250 
251 
252 
253 
254 
255 


0020D0: 


8D 


FT 


03 


256 


0020D3: 


18 






257 


0020D4: 


69 


01 




258 


0020D6: 


8D 


A2 


23 


259 
260 
261 
262 
263 
264 
265 
266 
267 


0020D9: 


69 


02 




268 


0020DB: 


85 


43 




269 


0020DD: 


A9 


24 




270 


0020DF: 


85 


3D 




271 


0020E1: 


AO 


00 




272 


0020E3: 


84 


42 




273 


0020E5: 


84 


3C 




274 


0020E7 : 


8C 


F6 


03 


275 


0020EA: 


A9 


4C 




276 


0020EC: 


8D 


F5 


03 


277 


0020EF: 


A2 


04 




278 


0020F1: 


Bl 


3C 




279 


0020F3: 


91 


42 




280 


0020F5: 


C8 






281 


0020F6: 


DO 


F9 


=20F1 


282 


0020F8: 


C6 


3D 




283 


0020FA: 


C6 


43 




284 


0020FC: 


CA 






285 


0020FD: 


DO 


F2 


=20F1 


286 


0020FF: 


60 






287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 



STA 



JMP2+2 



* JMP1 and JMP2 are the only 

* instructions in the main program 
♦that reference addresses in the 
♦first page of the main program. 
*The high-order bytes of these 
♦addresses need to be adjusted. 



STA 

CLC 

ADC #1 

STA JMP3+2 



AMPERH+2 ;Fix ampersand hook. 



Step to 2nd page of main 
Fix JMP instructions 



*JMP3 is the only instruction in 
♦the main program that references 
♦an address in the second page of 
♦the main program. The high-order 
♦byte of this address needs to be 
♦adjusted. 



MOVE 



ADC 
STA 
LDA 
STA 
LDY 
STY 
STY 
STY 
LDA 
STA 
LDX 
LDA 
STA 
INY 
BNE 
DEC 
DEC 
DEX 
BNE 
RTS 



Step to 3rd page of main 
DEST=BUFFER+$300 

SOURCE=INITAD+$300 



/Initialize index 



#2 

DEST+1 

#>INITAD+$300 

SOURCE+1 

#0 

DEST 

SOURCE 

AMPERH+1 

#$4C ;JMP op-code 

AMPERH ; (Just to be certain!) 

#4 ;Move 4 256-byte pages 

(SOURCE), Y ;Get a byte 

(DEST),Y /Relocate it 



MOVE 

SOURCE+1 

DEST+1 

MOVE 



/Back until page is done 
/Step to next page 

Decrement page counter 
Back if not done 
Installation complete! 



MAIN PROGRAM 



♦The main program parses the text that follows the 
♦ampersand and responds accordingly. If an INPUT, 
♦GET, or a PRINT token is not found, control is 
♦passed to any previously installed ampersand routine. 
♦With SGET x$, the current value of x$ is not printed. 
♦With SINPUT x$ and SPRINT x$, the current value of 
♦x$ is printed to the text screen window beginning 
♦at the current cursor location, with (SPRINT) or 
♦without (SINPUT) word-wrapping. With SINPUT, this 
♦default string then may be edited using the blinking 
♦underscore "insert" cursor and the following keys: 

, 
♦ARROW keys move the blinking underscore cursor. 
♦If the string occupies more than one line, 
♦the up- and down-arrow keys will work. 
♦DELETE deletes character to left of cursor. 
♦CTRL-D deletes character under the cursor. 
♦CTRL-X erases the edit string. 

♦CTRL-Y clears from cursor to end of edit string. 
♦CTRL-B moves cursor to beginning of edit string, 
♦CTRL-N moves cursor to end of edit string. 
♦CTRL-C toggles the case of the character under 
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002100 


20 


B7 


002103 


A2 


FF 


002105 


C9 


84 


002107 


F0 


OE 


002109 


E8 




00210A 


C9 


BA 


00210C 


FO 


09 


00210E 


A2 


FE 



314 *the cursor> if it is a letter: 

315 *upper case letters are converted to lower; 

316 *lower case letters are converted to upper. 

317 *RETURN accepts the current edit string and 

318 *assigns it to the variable, x$. 

319 *ESC aborts with a variable (ES) set to "1". 

320 *OPEN-APPLE (in conjunction with another key) 

321 *aborts with a variable (OA) set to 

322 *the code for the key that was pressed, 

323 *SOLID-APPLE (in conjunction with another key) 

324 *aborts with a variable (SA) set to 

325 *the code for the key that was pressed. 
32 6 

327 *If the specified string, x$, has a length that ex- 

328 *ceeds the specified maximum f ield_length, FL, then a 
32 9 *STRING TOO LONG error will be generated. The same 

330 *error will be generated if the edit string ever 

331 *grows so long that its top line scrolls out of the 

332 *text window. The text window must be at least two 

333 *characters wide. If SINPUT is aborted by pressing 

334 *<ESC>, this may be detected using an ON ESCAPE GOTO 

335 *statement . An apple-key combination may be detected 

336 *using an IF OA GOTO or IF SA GOTO statement. When 

337 *nonzero, the value of OA or SA is the hi-ASCII 

338 *keycode. All three ampersand routines leave the 

339 *text screen cursor just beyond the end of the 

340 *printed string. A blinking underscore cursor is 

341 *used during SGET and SINPUT editing. When control 

342 *returns to Applesoft, the text cursor always will 

343 *be restored to whatever cursor was in use at the 

344 *time the ampersand routine was invoked. If no • 

345 *FL variable was defined prior to SINPUT, or if 
34 6 *the value of FL had been set equal to zero, the 

347 *field length defaults to 255 characters. Zero-page 

348 *locations $3C through $47 are used temporarily by 

34 9 *this program; their original contents are destroyed. 

350 *If the variables FL, ES, OA, and SA do not exist 

351 *prior to invoking SINPUT, SGET, or SPRINT, they 

352 *will be created for you, and FL will default to 

353 *zero (which indicates field_length = 255) . When 

354 *terminated by <RETURN>, SINPUT strips trailing 

355 *spaces from the edit string before making a new x$ . 

356 *Following SGET, PEEK(60) will yield the Hi-ASCII 

357 *code for the character in x$; PEEK(60)-128 will 

358 *give the Lo-ASCII code. SGET always clears the 

359 *variable ES to zero, even if the key that was 

360 *"gotten" was <ESC>. OA and SA behave exactly the 

361 *same with SGET as they do with SINPUT, except that 

362 *the GET is not aborted. If you SGET an apple key 

363 *combination, x$ receives the character, location 

364 *60 receives the Hi-ASCII code, and OA and/or SA 

365 *also receive (s) the Hi-ASCII code. To determine 

366 *if <ESC> was pressed during an SGET, use 

367 *ON <PEEK(60)=155) GOTO instead of ON ESCAPE GOTO. 

368 *SINPUT will respond to all ASCII codes except 

369 *control codes and DELETE. 
370 

00 371 JSR CHRGOT ;Get character after "S" 

372 LDX #$FF /Flag value for SINPUT 

373 CMP tINPTKN /Compare to INPUT token 
=2117 374 BEQ LI ;If SINPUT, SWITCH=$FF 

375 INX /Flag for SPRINT ($00) 

376 CMP #PRNTKN /Compare to PRINT token 
=2117 377 BEQ LI /If SPRINT, SWITCH=$00 

378 LDX t$FE /Flag for SGET ($FE) 
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002110: C9 BE 

002112: F0 03 =2117 

002114: 4C C9 DE 

002117: 86 45 



002119: AO 00 

00211B: 84 42 

00211D: 84 10 

00211F: 84 11 

002121: 84 12 



002123 
002125 
002127 
002129 
00212B 
00212E 
002131 
002134 
002135 
002137 
002138 



00213A 
00213D 
002140 
002142 
002144 
002147 
00214A 
00214C 

00214F 
002151 
002153 
002156 
002158 
00215B 
00215D 
002160 
002162 

002164 
002166 
002168 
00216A 
00216C 
00216E 
002170 
002172 
002173 
002175 
002177 
002178 
00217A 



A9 46 
85 81 
A9 4C 
85 82 



20 
20 



4F EO 

F9 EA 
20 FB E6 
8A 

DO 01 =2136 
CA 
86 41 



20 Bl 00 
20 E3 DF 
85 85 

86 

6C DD 



84 
20 



20 B7 
FO 03 



00 

=214F 
4C C9 DE 



A5 24 

FO 03 =2156 

8D 7B 05 

A4 25 

2C IF CO 

10 03 =2160 

AD 7B 05 

84 43 

85 44 

AO 00 

84 47 
A6 45 
EO FE 

FO 04 =2172 
Bl 83 

85 42 
C8 

Bl 83 
85 AB 
C8 

Bl 83 
85 AC 



379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 



CMP #GETTKN 
BEQ LI 
OLDHOOK JMP SYNERR 



LI 



STX 



SWITCH 



Compare to GET token 
If SGET, SWITCH=$FE 
Old S-hook stored here 

Set switch 



♦SWITCH = $00 for SPRINT 
♦SWITCH = $FE for SGET 
♦SWITCH = $FF for S INPUT 



LDY 
STY 



#0 
STRLEN 



STY DIMFLG 
STY VALTYP 
STY INTFLG 



/Default STRLEN to 



Initialize flags 
Numeric, not string 
Real, not integer 



***Find value of variable FL*** 



LDA 
STA 
LDA 
STA 
JSR 
JSR 
JSR 
TXA 
BNE 
DEX 
STORFL STX 



#$46 

VARNAM 

#$4C 

VARNAM+1 

VARLOC 

MOVFM 

CONINT 

STORFL 

FLDLEN 



;Lo-ASCII 'F' 

;Lo-ASCII 'L 1 

; Locate the variable FL 
.•Move (Y,A) to FAC 
.•Integer in X reg 
(Examine value of FL 

Default to 255 
Store field length 



***Locate string variable* 
JSR CHRGET 



SYNTOK 



L2 



SAVCUR 



JSR 
STA 
STY 
JSR 
JSR 
BEQ 
JMP 

LDA 
BEQ 
STA 
LDY 
BIT 
BPL 
LDA 
STY 
STA 



REDO LDY 
STY 
LDX 
CPX 
BEQ 
LDA 
STA 

GETPNT INY 
LDA 
STA 
INY 
LDA 
STA 



PTRGET 

FORPNT 

FORPNT+1 

CHKSTR 

CHRGOT 

SYNTOK 

SYNERR 

CH 

L2 

CH80 

CV 

RD80COL 

SAVCUR 

CH80 

TOPCV 

TOPCH 

#0 

TEMPY 

SWITCH 

#$FE 

GETPNT 

(VARPNT) ,Y 

STRLEN 

(VARPNT) ,Y 
STRNG1 

(VARPNT) ,Y 
STRNG1+1 



/Advance TXTPTR 
;Get ptr to str descript 
/Save pointer in FORPNT 
/for later use by PERMST. 
/Check for string var 
/Examine next character 
/Branch if : or EOL 
/Error if not : or EOL 

/Update text cursor 
/Update CH80 only if 
/CH > 0. 

/80-column display? 



Cursor values for 
start of string 

Initialize index 



/Is this SGET? 
/If so, use default. 
/Get length of string 
/Store in string_length 
/Step to next character 
/LOB of pointer 
/STRNG1 points to x$ 
/Step to next character 
/HOB of pointer 
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00217C 


A0 


00 




442 




LDY 


#0 


•Reset index 


00217E 


A5 


45 




443 




LDA 


SWITCH 


•Test switch 


002180 


DO 


4C 


=21CE 


444 




BNE 


PRNWRD 


•INPUT or GET: go print 


002182 


84 


47 




445 


L3 


STY 


TEMPY 


•Else word-wrap 


002184 


A2 


01 




446 




LDX 


#1 


•Initialize char count 


002186 


CO 


00 




447 




CPY 


#0 


•No leading space at 


002188 


DO 


01 


=218B 


448 




BNE 


L4 


•start of string. 


00218A 


CA 






449 




DEX 






00218B 


C4 


42 




450 


L4 


CPY 


STRLEN 


Reached end of string? 


00218D 


BO 


09 


=2198 


451 




BCS 


CHKWRD 


•Branch if yes 


00218F 


C8 






452 




INY 






002190 


E8 






453 




INX 




• Increment word length 


002191 


Bl 


AB 




454 




LDA 


(STRNG1) ,Y 




002193 


C9 


20 




455 




CMP 


#$20 


•Lo-ASCII space? 


002195 


DO 


F4 


=218B 


456 




BNE 


L4 


•No. Keep going. 


002197 


38 






457 




SEC 




Yes, prepare to SBC. 


002198 


A5 


21 




458 


CHKWRD 


LDA 


WNDWID 


Get window width 


00219A 


2C 


IF 


CO 


459 




BIT 


RD80COL 


•80-column display? 


00219D 


10 


04 


=21A3 


4 60 




BPL 


L5 




00219F 


ED 


7B 


05 


461 




SBC 


CH80 


Compute dist to R edge 


0021A2 


2C 






4 62 




DFB 


$2C 


•Skip next instruction 


0021A3 


E5 


24 




463 


L5 


SBC 


CH 




0021A5 


86 


46 




464 




STX 


TEMPX 




0021A7 


AA 






465 




TAX 




Save distance to go 


0021A8 


C5 


46 




466 




CMP 


TEMPX 


•Will it fit? 


0021AA 


BO 


08 


=21B4 


467 
468 




BCS 


L7 


Yes . Go print it . 


0021AC 


A9 


AO 




469 


L6 


LDA 


#$A0 


(Hi-ASCII space) 


0021AE 


20 


ED 


FD 


470 




JSR 


COUT 


Pad with spaces 


0021B1 


QA 






471 




DEX 




to end of line. 


0021B2 


DO 


F8 


=21 AC 


472 
473 




BNE 


L6 




0021B4 


A4 


47 




474 


L7 


LDY 


TEMPY 


Restore index 


0021B6 


FO 


16 


=21CE 


475 




BEQ 


PRNWRD 


No space if 1st char 


0021B8 


A5 


24 




476 




LDA 


CH 




0021BA 


2C 


IF 


CO 


477 




BIT 


RD80COL 


80-column display? 


0021BD 


10 


03 


=21C2 


478 




BPL 


L8 




0021BF 


AD 


7B 


05 


479 




LDA 


CH80 


Get horiz cursor. 


0021C2 


C9 


00 




480 


L8 


CMP 


#0 


At L edge? 


0021C4 


FO 


08 


=21CE 


481 




BEQ 


PRNWRD 


Yes. Don't print space. 


0021C6 


A9 


AO 




482 




LDA 


#$A0 


Hi-ASCII space 


0021C8 


99 


FF 


01 


483 




STA 


EDBUF-1,Y 


Put copy in EDBUF 


0021CB 


20 


ED 


FD 


484 
485 




JSR 


COUT 


Print a space 


0021CE 


C4 


42 




486 


PRNWRD 


CPY 


STRLEN 


At end of string? 


0021D0 


BO 


3D 


=220F 


487 




BCS 


ENDPRT 


Yes. Finished. 


0021D2 


Bl 


AB 




488 




LDA 


(STRNG1) ,Y 


Get next character 


0021D4 


09 


80 




489 




ORA 


#$80 


Convert to hi-ASCII 


0021D6 


C8 






490 




INY 




Increment string index 


0021D7 


A6 


45 




491 




LDX 


SWITCH 


Test switch 


0021D9 


DO 


04 


=21DF 


492 




BNE 


L9 


No wrap if SINPUT 


0021DB 


C9 


AO 




493 




CMP 


#$A0 


Hi-ASCII space 


0021DD 


FO 


A3 


=2182 


494 




BEQ 


L3 


Go see if next word fits 


0021DF 


99 


FF 


01 


495 


L9 


STA 


EDBUF-1,Y 


Put copy in EDBUF 


0021E2 


A6 


25 




496 




LDX 


CV 




0021E4 


20 


ED 


FD 


497 




JSR 


COUT 


Print the character 


0021E7 


E8 






498 




INX 






0021E8 


E4 


23 




499 




CPX 


WNDBOT 


Were we on bottom line? 


0021EA 


DO 


E2 


=21CE 


500 
501 




BNE 


PRNWRD 


No, no scroll was done. 


0021EC 


A6 


24 




502 




LDX 


CH 


Get horizontal cursor 


0021EE 


2C 


IF 


CO 


503 




BIT 


RD80COL 


80-column display? 


0021F1 


10 


03 


=21F6 


504 




BPL 


L10 
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0021F3: 
0021F6: 
0021F8: 
0021FA: 
0021FC: 



0021FE: 
002200: 
002202: 
002204 : 
002206: 
002208: 

00220A: 
00220C: 

00220F 
002211 
002214 
002216 
002219 
00221B 
00221D 



002221: 
002223: 
002225: 



AE 7B 05 

E0 00 

DO D4 =21CE 

A6 45 

FO DO =21CE 



C6 3F 

C6 43 

30 06 =220A 

A6 43 

E4 22 

BO C4 =21CE 

A2 BO 
4C 12 D4 

A5 24 
2C IF CO 
10 03 =2219 
AD 7B 05 
85 3E 
A5 25 
85 3D 



00221F: 24 45 



30 03 =2226 
70 09 =222E 
60 



002226: 50 14 =223C 



002228: 
00222A: 
00222C: 

00222E: 
002230: 
002232: 
002234: 
002236: 
002238: 
00223A: 

00223C: 
00223E: 
002240: 
002242: 

002244: 
002246: 



A5 41 
C5 4 2 
90 DC 

A5 44 
85 40 
A5 4 3 
85 3F 
AO 00 
84 47 
84 46 

AO 00 

84 AB 
A9 02 

85 AC 

A5 3F 
85 25 



=220A 



505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 



L10 



LDX CH80 

CPX #0 

BNE PRNWRD 

LDX SWITCH 

BEQ PRNWRD 



;Use CH80 instead 
;Are we at L edge? 
;No, no scroll was done. 
;If SPRINT, 
/keep printing. 



* We don't care if top line scrolls out of 

* the text window during SPRINT, but we 

* must flag it as an error during S INPUT. 



Lll 



DEC 
DEC 
BMI 
LDX 
CPX 
BCS 

LDX 
JMP 



ENDPRT LDA 
BIT 
BPL 
LDA 

STRCH STA 
LDA 
STA 



TESTSW 

♦SWITCH = 
♦SWITCH = 
*SWITCH = 
*SWITCH = 
♦SWITCH = 
*<CTRL-Y> 



BIT 



OLDCV 

TOPCV 

Lll 

TOPCV 

WNDTOP 

PRNWRD 

#$B0 
ERROR 

CH 

RD80COL 

STRCH 

CH80 

BOTCH 

CV 

BOTCV 

SWITCH 



If scroll due to INSERT 
Modify start cursor 
Error if negative 

Did top scroll off? 
No. Keep going. 

Code for STRING TOO LONG 
Exit thru error process 

Store CH in BOTCH 
80-column display? 



,- Store CV in BOTCV 



Test switch 



$00 indicates SPRINT. 

$FF indicates initial SINPUT entry. 

$FE indicates SGET. 

$40 indicates return from <CTRL-R>. 

$80 indicates return from <CTRL-X>, 

<CTRL-D>, or INSERT. 



L12 



CTRLR 



RESTORE 



BMI 
BVS 
RTS 

BVC 



LDA 
CMP 
BCC 

LDA 
STA 
LDA 
STA 
LDY 
STY 
STY 

LDY 
STY 
LDA 
STA 

LDA 
STA 



L12 
CTRLR 



RESTORE 



FLDLEN 
STRLEN 
Lll 

TOPCH 

OLDCH 

TOPCV 

OLDCV 

#0 

TEMPY 

ESCFLG 

#<EDBOF 
STRNG1 
#>EDB0F 
STRNG1+1 

OLDCV 
CV 



Return from <CTRL-R> 
SPRINT is done! 

Return from <CTRL-Y>, 
<CTRL-D>, or INSERT. 

FLDLEN < STRLEN? 

Yes. STRING TOO LONG. 

Cursor to top 



Index to beginning 
Clear escape flag to "0'' 
Aim STRNG1 at EDBUF 



Get previous CV 
Store in current CV 
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002248: A5 40 
00224A: 85 24 
00224C: 8D 7B 05 



00224F 
002252 
002254 
002257 
00225A 
00225C 
00225F 
002260 
002262 
002263 
002265 
002268 
002269 
00226A 
00226B 
00226C 
00226E 
00226F 
002271 
002273 
002275 
002276 
002277 
002278 
00227A 
00227C 
00227F 
002281 
002283 
002285 
002287 
002289 
00228B 
00228D 
00228F 



20 22 FC 

A4 2 4 

8C 7B 05 

2C IF CO 

10 10 =226C 

8D 01 CO 

98 

45 20 

4A 

BO 04 =2269 

8D 55 CO 

C8 

98 

4A 

A8 

Bl 28 

48 

4 9 DF 

DO 02 =2275 

A9 7F 

48 

68 

48 

51 28 

91 28 

2C 00 CO 

30 12 =2293 

E6 4E 

DO F7 =227C 

A5 4F 

E6 4F 

45 4F 

29 40 

FO ED =227C 

DO E5 =2276 



002291: FO 9B =222E 



002293: 
002294: 
002295: 
002297: 
00229A: 



68 
68 

91 28 
AD 00 CO 
85 3C 



00229C: A2 FF 

00229E: 2C 61 CO 

0022A1: 10 04 =22A7 

0022A3: 86 43 

0022A5: A9 8D 

0022A7: 2C 62 CO 

0022AA: 10 04 =22B0 

0022AC: 86 44 

0022AE: A9 8D 

0022B0: A6 45 

0022B2: EO FE 

0022B4: DO OD =22C3 

0022B6: A6 3C 

0022B8: 8E 00 02 



568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62 4 
625 
626 
627 
628 
629 
630 
631 



GETCHR 



GETCH1 



GETCH2 



NOZMSK 

GETCH3 



GETCH4 



CTRLBO 
GOTKEY 



CHKSA 



CHKGET 



LDA 
STA 
STA 

JSR 
LDY 
STY 
BIT 
BPL 
STA 
TYA 
EOR 
LSR 
BCS 
STA 
INY 
TYA 
LSR 
TAY 
LDA 
PHA 
EOR 
BNE 
LDA 
PHA 
PLA 
PHA 
EOR 
STA 
BIT 
BMI 
INC 
BNE 
LDA 
INC 
EOR 
AND 
BEQ 
BNE 

BEQ 

PLA 
PLA 
STA 
LDA 
STA 

LDX 
BIT 
BPL 
STX 
LDA 

BIT 
BPL 
STX 
LDA 

LDX 
CPX 
BNE 
LDX 
STX 



OLDCH 

CH 

CH80 

VTAB 

CH 

CH80 

RD80COL 

GETCH2 

STORE80 

WNDLFT 

GETCH1 
PAGE2 



(TBASE) ,Y 

#$DF 
NOZMSK 

#$7F 



(TBASE), Y 

(TBASE) ,Y 

KEYBD 

GOTKEY 

RANDOM 

GETCH4 

RANDOM+1 

RANDOM+1 

RANDOM+1 

#%01000000 

GETCH4 

GETCH3 

CTRLR 



(TBASE) ,Y 
KEYBD 
KEYCOD 

#$FF 

READOA 

CHKSA 

OAFLAG 

#$8D 

READSA 
CHKGET 
SAFLAG 
#$8D 

SWITCH 

#SFE 

CHKCAS 

KEYCOD 

EDBUF 



;Get previous CH 
/Store in current CH 



(Update TBASE 
;Get CH 
; Update CH80 
;80-column display? 

;PAGE2 switches 1 and IX 

;LSB=1 if char in main 
/Carry clear if aux 

/Select AUX memory 
/If WNDLFT odd 

/Compute index 

/Get the character 
/Save original character 
; (Hi-ASCII underscore) 
/If screen char is "_", 
/treat as if space. 
/Mask onto stack 
/Retrieve mask 
/Toggle between 
/original character 
/and underscore. 
/See if key pressed 

/Use random # as a 
/flashing cursor timer. 



/Leaves 1 if bit changed 
/Did bit six change? 

Always taken 

Bounce-back point 

Remove mask from stack 
Retrieve original char 
Put it back 
Get key code 
Save it for later 



/Check open-apple key 

Set open-apple flag 
Fake a <RETURN> 

Check solid-apple key 

Set solid-apple flag 
Fake a <RETURN> 



/Is this an SGET? 

/Get key code 
/Put it in buffer 
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0022BB 


E6 


42 




632 




INC 


STRLEN 




Set string_length = 1 


0022BD 


A9 


8D 




633 




LDA 


#$8D 




Fake a <RETURN> 


0022BF 


DO 


29 


=22EA 


634 
635 




BNE 


CONTN1 




Always taken 


0022C1 


90 


8C 


=224F 


636 
637 


GETO 


BCC 


GETCHR 




Bounce-back point 


0022C3 


C9 


83 




638 


CHKCAS 


CMP 


#$83 




Check for CTRL-C 


0022C5 


DO 


IF 


=22E6 


639 




BNE 


CONTIN 






0022C7 


A6 


47 




640 




LDX 


TEMPY 




Process CTRL-C 


0022C9 


E4 


42 




641 




CPX 


STRLEN 




Must be char in string 


0022CB 


BO 


17 


=22E4 


642 




BCS 


NOALPH 




Else skip it 


0022CD 


Bl 


28 




643 




LDA 


(TBASE) , 


r 


Get the character 


0022CF 


09 


20 




644 




ORA 


#$20 




Force lower case 


0022D1 


C9 


FB 




645 




CMP 


#$FB 




Hi-ASCII "(" 


0022D3 


BO 


OF 


=22E4 


646 




BCS 


NOALPH 




Not an alpha 


0022D5 


C9 


El 




647 




CMP 


#$E1 




Hi-ASCII "a" 


0022D7 


90 


OB 


=22E4 


648 




BCC 


NOALPH 




Not an alpha 


0022D9 


Bl 


28 




649 




LDA 


(TBASE) , 


Y 


Retfieve character 


0022DB 


49 


20 




650 




EOR 


#$20 




Toggle its case 


0022DD 


91 


28 




651 




STA 


(TBASE) , 


Y 


Put it back 


0022DF 


A4 


47 




652 




LDY 


TEMPY 






0022E1 


99 


00 


02 


653 




STA 


EDBUF,Y 




Make change in string 


0022E4 


A9 


95 




654 
655 


NOALPH 


LDA 


#$95 




Hi-ASCII R-ARROW 


0022E6 


A2 


80 




65 6 


CONTIN 


LDX 


#$80 






0022E8 


86 


45 




657 




STX 


SWITCH 




•Default SWITCH to $80 


0022EA 


8D 


54 


CO 


658 
659 


C0NTN1 


STA 


PAGE1 




•Back to pgl if needed 










660 


*We def 


ault to text page 1 


because it is 










661 


♦assume 


d that 


text page 2 was not in use 










662 


*at the 


time this program 


rfas called'. If 










663 


*you wish to work with 


text page 2 you 










664 


*will h 


ave to 


modify the p 


rogram. 










665 












0022ED 


8D 


10 


CO 


666 
667 




STA 


STROBE 




Clear keyboard strobe 


0022F0 


C9 


82 




668 




CMP 


#$82 




•Check for CTRL-B 


0022F2 


DO 


02 


=22F6 


669 




BNE 


CHKDEL 






0022F4 


FO 


9B 


=2291 


670 
671 




BEQ 


CTRLB0 




•Always taken 


0022F6 


C9 


FF 




672 


CHKDEL 


CMP 


#$FF 




•Check for <DELETE> 


0022F8 


DO 


1C 


=2316 


673 
674 




BNE 


L13 














675 


***PROCESS <DELETE>*** 






0022FA 


AA 






676 
677 
678 


***MOVE 


TAX 
CURSOR 


LEFT*** 




•Leave signature ($FF) 










679 


*A "signature" 


in the X 


reg 


.ster indicates which 










680 


*key processor 


transferred 1 


:o CURLFT: 










681 


*X=$88 indicates <L-ARROW> 












682 


*X=$FF indicates <DELETE> 




0022FB 


A4 


47 




683 


CURLFT 


LDY 


TEMPY 




•Get string index 


0022FD 


FO 


2B 


=232A 


684 




BEQ 


REJECT 




•If at L end, no go. 


0022FF 


C6 


47 




685 




DEC 


TEMPY 




•Decrement string index 


002301 


A4 


24 




686 




LDY 


CH 




•Get CH 


002303 


DO 


06 


=230B 


687 




BNE 


CURL 






002305 


C6 


25 




688 




DEC 


CV 




•Step up one line 


002307 


C6 


3F 




689 




DEC 


OLDCV 




•Update old CV 


002309 


A4 


21 




690 




LDY 


WNDWID 




•Step to R edge 


00230B 


88 






691 


CURL 


DEY 






•Move left 1 character 


00230C 


84 


24 




692 




STY 


CH 




Update CH 


00230E 


84 


40 




693 




STY 


OLDCH 




•Update old CH 


002310 


8A 






694 




TXA 






Check signature 



I7te Sourceror s Apprentice 
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002311 


4A 






695 




LSR 




Examine LSB 


002312 


BO 


58 


=236C 


696 




BCS 


CTRLD 


Process ctrl-D 


002314 


90 


AB 


=22C1 


697 
698 


GET1 


BCC 


GETO 


Always taken 


002316 


C9 


88 




699 


L13 


CMP 


#$88 


Check <L-ARROW> 


002318 


DO 


03 


=231D 


700 
701 




BNE 


CHAR 












702 


***PROCESS <L- 


ARROW>***' 




00231A 


AA 






703 




TAX 




Leave signature ($88) 


00231B 


DO 


DE 


=22FB 


704 
705 




BNE 


CURLFT 


Always taken 


00231D 


C9 


A0 




706 


CHAR 


CMP 


#$A0 


Character to insert? 


00231F 


90 


40 


=2361 


707 
708 




BCC 


CONTRL 


Control character 










709 


***PROCESS INSERT*** 




002321 


A4 


42 




710 




LDY 


STRLEN 




002323 


F0 


16 


=233B 


711 




BEQ 


L16 




002325 


AA 






712 




TAX 




Save char for later 


002326 


C4 


41 




713 




CPY 


FLDLEN 


STRLEN < FLDLEN? 


002328 


90 


OC 


= 2336 


714 
715 




BCC 


L15 


Yes. Continue. 


00232A 


20 


DD 


FB 


716 


REJECT 


JSR 


BEEP 


Beep speaker 


00232D 


F0 


2F 


= 235E 


717 
718 




BEQ 


GETCLC 


Always taken 


00232F 


88 






719 


LI 4 


DEY 






002330 


B9 


00 


02 


720 




LDA 


EDBUF, Y 


Open up a hole for 


002333 


99 


01 


02 


721 




STA 


EDBUF+1, Y 


the insertion. 


002336 


C4 


47 




722 


L15 


CPY 


TEMPY 




002338 


DO 


F5 


=232F 


723 




BNE 


L14 




00233A 


8A 






724 




TXA 




Retrieve the char 


00233B 


99 


00 


02 


725 


L16 


STA 


EDBUF, Y 


Insert it 


00233E 


E6 


42 




726 




INC 


STRLEN 




002340 


A2 


00 




727 
728 
729 


***MOVE 


LDX 
CURSOR 


#0 
RIGHT*** 


Leave signature ($00) 










730 


*A "sig 


nature" 


in the X register indicates which 










731 


*key pr 


ocessor 


transferred 


to CURRT: 










732 


*X=$00 


indicates INSERT 












733 


*X=$95 


indicat 


es <R-ARROW> 




002342 


A4 


47 




734 


CURRT 


LDY 


TEMPY 


Get string index 


002344 


C4 


42 




735 




CPY 


STRLEN 


Is TEMPY < STRLEN? 


002346 


B0 


E2 


=232A 


736 




BCS 


REJECT 


No. Bad news. 


002348 


E6 


47 




737 




INC 


TEMPY 




00234A 


A4 


24 




738 




LDY 


CH 


Get CH 


00234C 


C8 






739 




INY 






00234D 


C4 


21 




740 




CPY 


WNDWID 


CH < WIDTH? 


00234F 


90 


06 


=2357 


741 




BCC 


L17 


Yes. Go store it. 


002351 


A0 


00 




742 




LDY 


#0 


No. Move to next line 


002353 


E6 


25 




743 




INC 


CV 




002355 


E6 


3F 




744 




INC 


OLDCV 




002357 


84 


24 




745 


L17 


STY 


CH 


Replace CH 


002359 


84 


40 




746 




STY 


OLDCH 


Update old CH 


00235B 


8A 






747 




TXA 




Retrieve signature 


00235C 


F0 


4F 


=23AD 


748 




BEQ 


REPRNT 


If called by INSERT 


00235E 


18 






749 


GETCLC 


CLC 




Force branch 


00235F 


90 


B3 


=2314 


750 
751 


GET2 


BCC 


GET1 


Always taken 


002361 


C9 


95 




752 


CONTRL 


CMP 


#$95 


Check R-arrow 


002363 


DO 


03 


=2368 


753 
754 




BNE 


L18 












755 


***PROCESS <R- 


ARROW>*** 




002365 


AA 






756 




TAX 




Leave signature ($95) 


002366 


DO 


DA 


=2342 


757 




BNE 


CURRT 


Always taken 
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002368 


C9 


84 




758 
759 


L18 


CMP 


#$84 


Check <CTRL-D> 


00236A 


DO 


5B 


=23C7 


760 
761 




BNE 


L19 












762 


***PROCESS <CTRL-D>*** 




00236C 


A4 


47 




763 


CTRLD 


LDY 


TEMPY 


Get string index 


00236E 


C4 


42 




764 




CPY 


STRLEN , 


Is TEMPY < STRLEN? 


002370 


BO 


B8 


=232A 


7 65 


REJ1 


BCS 


REJECT 


No. Bad news. 


002372 


B9 


01 


02 


766 


CTRLD1 


LDA 


EDBUF+1,Y , 


Get character to right 


002375 


99 


00 


02 


767 




STA 


EDBUF,Y 


Store it here 


002378 


C8 






768 




INY 


i 


Step to next character 


002379 


C4 


42 




769 




CPY 


STRLEN , 


Reached end of string? 


00237B 


DO 


F5 


=2372 


770 




BNE 


CTRLD1 




00237D 


A2 


00 




771 
772 
773 


***ERASE 


LDX 
STRING 


#0 

*** 


Leave signature ($00) 










774 


*A "signature" 


in the X register indicates which 










775 


*key pro 


cessor 


transferred to ERASE: 










776 


*X=$00 indicates <DELETE> or <CRTL-D> 










777 


*X=$40 indicates <CTRL-R> 












778 


*X=$99 indicates <CTRL-Y> or <CTRL-X> 


00237F 


A5 


44 




779 


ERASE 


LDA 


TOPCH 


Get top CH 


002381 


85 


24 




780 




STA 


CH 


Put in CH 


002383 


8D 


7B 


05 


781 




STA 


CH80 




002386 


A5 


43 




782 




LDA 


TOPCV 


Get top CV 


002388 


85 


25 




783 




STA 


CV 


Put in CV 


00238A 


20 


22 


FC 


784 




JSR 


VTAB 


Update TBASE 


00238D 


A4 


42 




785 




LDY 


STRLEN 




00238F 


FO 


08 


=2399 


786 




BEQ 


CHKSIG 


Nothing to erase! 


002391 


A9 


AO 




787 


ERASE1 


LDA 


#$A0 


Hi-ASCII space 


002393 


20 


ED 


FD 


788 




JSR 


COUT 


Print it * 


002396 


88 






789 




DEY 






002397 


DO 


F8 


= 2391 


790 




BNE 


ERASE1 




002399 


8A 






791 


CHKSIG 


TXA 




Check signature 


00239A 


DO 


07 


= 23A3 


792 




BNE 


ERASE2 




00239C 


C6 


42 




793 




DEC 


STRLEN 


<DELETE> or <CTRL-D> 


00239E 


DO 


OD 


=2 3 AD 


794 




BNE 


REPRNT 




0023AO 


4C 


IF 


22 


795 
796 


JMP3 


JMP 


TESTSW 




0023A3 


30 


04 


=23A9 


797 


ERASE2 


BMI 


ERASE3 




0023A5 


85 


45 




798 




STA 


SWITCH 


<CTRL-R>: $40 to SWITCH 


0023A7 


DO 


04 


=2 3 AD 


799 
800 




BNE 


REPRNT 


Always taken 


0023A9 


A4 


47 




801 


ERASE3 


LDY 


TEMPY 


<CTRL-Y> 


0023AB 


84 


42 




802 
803 




STY 


STRLEN 


Chop from cursor to end 










804 


***REPRINT STRING*** 












805 


*A "sig 


nature" 


in the X rec 


jister indicates which 










806 


*key processor 


transferred 


to REPRNT (via ERASE) : 










807 


*X=$00 


indicat 


es INSERT (v. 


La CURRT) , 










808 


*<CTRL- 


D>, or 


<DELETE> 












809 


*X=$40 


indicat 


es <CTRL-R> 












810 


*X=$99 


indicat 


es <CTRL-Y> ( 


jr <CTRL-X> 


0023AD 


A5 


44 




811 


REPRNT 


LDA 


TOPCH 


Get top CH 


0023AF 


85 


24 




812 




STA 


CH 


Put in CH 


0023B1 


8D 


7B 


05 


813 




STA 


CH80 




0023B4 


A5 


43 




814 




LDA 


TOPCV 


Get top CV 


0023B6 


85 


25 




815 




STA 


CV 


Put in CV 


0023B8 


20 


22 


FC 


816 




JSR 


VTAB 




0023BB 


EO 


40 




817 




CPX 


#$40 


Check signature 


0023BD 


DO 


03 


=23C2 


818 




BNE 


REPRN1 




0023BF 


4C 


64 


21 


819 


JMP1 


JMP 


REDO 


<CTRL-R> 


0023C2 


AO 


00 




820 


REPRN1 


LDY 


#0 





TTte Sourceror s Apprentice 
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0023C4 : 4C CE 21 



0023C7; C9 99 
0023C9: DO 03 =23CE 



0023CB: AA 

0023CC: DO Bl =237F 

0023CE: C9 92 

0023D0: DO 06 =23D8 



0023D2: A2 40 

0023D4: DO A9 =237F 

0023D6: 90 87 =235F 

0023D8: C9 8A 

0023DA: DO 2A =2406 



0023DC 
0023DE 
0023E0 
0023E2 
0023E4 
0023E6 
0023E7 
0023E9 
0023EB 
0023ED 
0023EF 
0023F1 
0023F3 
0023F5 
0023F7 
0023F9 
0023FB 
0023FD 
0023FF 
002401 
002403 
002404 



00240A 
00240C 
00240E 
002410 
002412 
002414 
002416 
002418 
002419 
00241B 
00241D 
00241F 
002421 



A5 25 

C5 3D 

90 02 =23E4 

BO 8C =2370 

E6 25 

18 

A5 47 

65 21 

85 47 

A5 25 

85 3F 

C5 3D 

90 OF =2404 

A5 3E 

C5 24 

BO 08 =2403 

85 24 

85 40 

A5 42 

85 47 

18 

90 DO =23D6 



002406: C9 8B 
002408: DO 2D =2437 



A5 4 3 

C5 25 

90 02 =2412 

BO DO =23E2 

C6 25 

A5 25 

85 3F 

38 

A5 47 

E5 21 

85 47 

A5 43 

C5 25 



821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
8 65 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 



JMP2 



L19 



JMP 


PRNWRD 


CMP 


#$99 


BNE 


L20 



***PROCESS <CTRL-Y>*** 

TAX 
CTRLY1 BNE ERASE 



L20 



CMP 
BNE 



#$92 

L21 



***PROCESS <CTRL-R>*** 
LDX #$40 
BNE ERASE 



GET3 



L21 



BCC GET2 



CMP 
BNE 



***PROCESS <D- 
LDA 
CMP 
BCC 
REJ2 BCS 
D0WN1 INC 
CLC 
LDA 
ADC 
STA 
LDA 
STA 
CMP 
BCC 
LDA 
CMP 
BCS 
STA 
STA 
LDA 
STA 
DOWN2 CLC 
DOWN3 BCC 



CHKUPA 



CMP 
BNE 



#$8A 
CHKUPA 

ARROW>*** 
CV 

BOTCV 
DOWN1 
REJ1 
CV 

TEMPY 

WNDWID 

TEMPY 

CV 

OLDCV 

BOTCV 

DOWN 3 

BOTCH 

CH 

DOWN2 

CH 

OLDCH 

STRLEN 

TEMPY 

GET3 

#$8B 
CHKCTX 



***PROCESS <U-ARROH>*** 

LDA TOPCV 

CMP CV 

BCC UPARR1 

REJ3 BCS REJ2 

UPARR1 DEC CV 

LDA CV 

STA OLDCV 
SEC 

LDA TEMPY 

SBC WNDWID 

STA TEMPY 

LDA TOPCV 

CMP CV 



INSERT, <CTRL-D>, 
<DELETE>, or <CTRL-Y> 

Check <CTRL-Y> 



Leave signature ($99) 
Always taken 

Check <CTRL-R> 



Leave signature ($40) 
Always taken 

Bounce-back point 

Check <D-ARROW> 



;CV < BOTCV? 



;No. Bad news , 
; Step down 1 line 
; Prepare to add 
/WNDWID to 
; TEMPY 

;CV < BOTCV? 



;No, Beyond end? 



;Yes. Go back 
;to bottom. 



Always taken 
Check <U-ARROW> 

t 

; TOPCV < CV? 



;No. Bad news . 
/Step up 1 line 



/TOPCV < CV? 
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002423 


90 


DF 


=2404 


884 




BCC 


DOWN3 




002425 


A5 


24 




885 




LDA 


CH 


No. Left of top? 


002427 


C5 


44 




886 




CMP 


TOPCH 




002429 


BO 


D8 


=2403 


887 




BCS 


DOWN2 




00242B 


A5 


44 




888 




LDA 


TOPCH 


Yes. Go to top. 


00242D 


85 


24 




889 




STA 


CH 




00242F 


85 


40 




890 




STA 


OLDCH 




002431 


A9 


00 




891 




LDA 


#0 




002433 


85 


47 




892 




STA 


TEMPY 




002435 


FO 


CC 


=2403 


893 
894 




BEQ 


DOWN2 


Always taken 


002437 


C9 


98 




895 


CHKCTX 


CMP 


#$98 


Check <CTRL-X> 


002439 


DO 


10 


=244B 


896 
897 




BNE 


CHKESC 












898 


***PROCESS <CTRL-X>*** 




00243B 


AA 






899 




TAX 






00243C 


A9 


00 




900 




LDA 


#0 


Go to the top 


00243E 


85 


47 




901 




STA 


TEMPY 




002440 


A5 


44 




902 




LDA 


TOPCH 




002442 


85 


40 




903 




STA 


OLDCH 




002444 


A5 


43 




904 




LDA 


TOPCV 




002446 


85 


3F 




905 




STA 


OLDCV 




002448 


E8 






906 




INX 




$99 to X register 


002449 


DO 


81 


=23CC 


907 
908 




BNE 


CTRLY1 


Always taken 


00244B 


C9 


9B 




909 


CHKESC 


CMP 


#$9B 


Check <ESC> 


00244D 


DO 


04 


=2453 


910 
911 




BNE 


CHKCTN 












912 


***PROCESS <ESC>*** 




00244F 


E6 


46 




913 




INC 


ESCFLG 


Escape flag to "1" 


002451 


DO 


48 


=2 4 9B 


914 

915 




BNE 


ESCENT 


Always taken 


002453 


C9 


8E 




916 


CHKCTN 


CMP 


#$8E 


Check <CTRL-N> 


002455 


DO 


13 


=2 4 6A 


917 
918 




BNE 


CHKRTN 












919 


***PROCESS <CTRL-N>*** 




002457 


A4 


42 




920 




LDY 


STRLEN 


Go to bottom 


002459 


84 


47 




921 




STY 


TEMPY 


of string. 


00245B 


A5 


3D 




922 




LDA 


BOTCV 




00245D 


85 


25 




923 




STA 


CV 




00245F 


85 


3F 




92 4 




STA 


OLDCV 




002461 


A5 


3E 




925 




LDA 


BOTCH 




002463 


85 


24 




926 




STA 


CH 




002465 


85 


40 




927 




STA 


OLDCH 




002467 


18 






92 8 




CLC 






002468 


90 


9A 


=2404 


92 9 

930 




BCC 


DOWN3 


Always taken 


00246A 


C9 


8D 




931 


CHKRTN 


CMP 


#$8D 


Check <RETURN> 


00246C 


FO 


03 


=2471 


932 




BEQ 


RETURN 




00246E 


38 






933 




SEC 






00246F 


BO 


9F 


=2410 


934 
935 




BCS 


REJ3 


Always taken 










936 


***PROCESS <RETURN>*** 




002471 


A5 


45 




937 


RETURN 


LDA 


SWITCH 


Check SGET 


002473 


C9 


FE 




938 




CMP 


#$FE 




002475 


FO 


08 


=247F 


939 




BEQ 


FORMST 


If SGET, form string 


002477 


24 


43 




940 




BIT 


OAFLAG 


Else check for 


002479 


30 


20 


=2 4 9B 


941 




BMI 


ESCENT 


open-apple or 


00247B 


24 


44 




942 




BIT 


SAFLAG 


solid-apple 


00247D 


30 


1C 


=2 4 9B 


943 
944 




BMI 


ESCENT 


abort of SINPUT. 


00247F 


A6 


42 




945 


FORMST 


LDX 


STRLEN 


Get string length 


002481 


FO 


OA 


=248D 


946 




BEQ 


RTN2 


Length = zero? 
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002483: 
002485: 



A9 A0 
DD FF 01 



002488: DO 03 =248D 

00248A: CA 

00248B: DO F8 =2485 

00248D: 20 39 D5 



002490: C8 

002491: 85 0D 

002493: 85 0E 

002495: 20 ED E3 



002498: 20 7B DA 



00249B: 
00249D: 
00249F: 
0024A1: 
0024A3: 
0024A5: 
0024A7: 
0024A9: 
0024AB: 
0024AE: 
0024B0: 
0024B2: 
0024B4: 
0024B6: 
0024B8: 



A9 00 

85 10 

85 11 

85 12 

A9 4F 

85 81 

A9 41 

85 82 

20 4F EO 

85 85 

84 86 

AO 00 

24 43 

10 02 =24BA 

A4 3C 



0024BA: 20 01 E3 

0024BD: 20 27 EB 

0024C0: A9 53 

0024C2: 85 81 



0024C4 
0024C7 
0024C9 
0024CB 
0024CD 
0024CF 
0024D1 
0024D3 
0024D6 



20 4F EO 

85 85 

84 86 

AO 00 

24 44 

10 02 =24D3 

A4 3C 

20 01 E3 

20 27 EB 



947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 



RTN1 



RTN2 



LDA #$A0 

CMP EDBUF-1,X 

BNE RTN2 

DEX 

BNE RTN1 



JSR 



GDBUFS 



Delete trailing spaces 
Is character a space? 
No. Go create string. 
Yes. Strip it off. 
Go back if more chars 

Form string in EDBUF 



*GDBUFS puts a null ($00) at the 
*end of the string in EDBUF and 
♦masks off the MSB of all bytes. 
*GDBUFS expects string_length in X 
♦GDBUFS returns with (A)=0, (Y)=l 



INY 

STA CHARAC 

STA ENDCHR 

JSR STRLT2 



(Y,A) set to $200 
No other terminator 
except a null byte. 
Form temporary string 



*STRLT2 expects Y,A to point to 
*a literal low-ASCII string. A 
♦temporary string is formed in 
♦memory space that is requested 
♦below FRETOP. In addition to 
♦the null ($00) terminator, the 
♦values in CHARAC and ENDCHR 
♦are used as string terminators. 



JSR PERMST 



ESCENT 



FLTOA 



LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
STA 
STY 
LDY 
BIT 
BPL 
LDY 
JSR 
JSR 

LDA 
STA 



#0 

DIMFLG 

VALTYP 

INTFLG 

#$4F 

VARNAM 

#$41 

VARNAM+1 

VARLOC 

FORPNT 

FORPNT+1 

#0 

OAFLAG 

FLTOA 

KEYCOD 

SNGFLT 

STORE 

#$53 
VARNAM 



FLTSA 



JSR 


VARLOC 


STA 


FORPNT 


STY 


FORPNT+1 


LDY 


#0 


BIT 


SAFLAG 


BPL 


FLTSA 


LDY 


KEYCOD 


JSR 


SNGFLT 


JSR 


STORE 



Make it permanent 

<ESC> enters here 
Initialize flags 



;Lo-ASCII 'O' 

;Lo-ASCII 'A 1 

; Locate the variable OA 
;Aim FORPNT at the 
/variable value. 
/Default OA to zero 



;If flag, use KEYCODe 

; Float new OA value 

; Store it in OA 

i 

;Lo-ASCII 'S' 



(VARNAM+1 still holds 'A') 

Locate the variable SA 
Aim FORPNT at the 
variable value. 
Default SA to zero 



If flag, use KEYCODe 
Float new SA value 
Store it in SA 



( ; 
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0024D9 


A9 


45 




1010 


LDA 


#$45 


Lo-ASCII 'E' 


0024DB 


85 


81 




1011 


STA 


VARNAM 




0024DD 


A9 


53 




1012 


LDA 


#$53 


Lo-ASCII 'S' 


0024DF 


85 


82 




1013 


STA 


VARNAM+1 




0024E1 


20 


4F 


EO 


1014 


JSR 


VARLOC 


Locate the variable ES 


0024E4 


85 


85 




1015 


STA 


FORPNT 


Aim FORPNT at the 


0024E6 


84 


86 




1016 


STY 


FORPNT+1 


variable value. 


0024E8 


A4 


46 




1017 


LDY 


ESCFLG 


"1" if <ESC>, else "0" 


0024EA 


20 


01 


E3 


1018 


JSR 


SNGFLT 


Float new ES value 


0024ED 


20 


27 


EB 


1019 
1020 


JSR 


STORE 


Store it in ES 


0024F0 


A5 


3D 




1021 


LDA 


BOTCV 


Move cursor to 


0024F2 


85 


25 




1022 


STA 


CV 


bottom of display 


0024F4 


20 


22 


FC 


1023 


JSR 


VTAB 


(one character position 


0024F7 


A5 


3E 




1024 


LDA 


BOTCH 


beyond last char in 


0024F9 


85 


24 




1025 


STA 


CH 


string, including 


0024FB 


8D 


7B 


05 


1026 


STA 


CH80 


trailing spaces), 


0024FE 


60 






1027 


RTS 




and exit . 




The Gentleman's GS: A Polite 
Introduction to the 16-bit II 

Part II 

by Ross W. Lambert 

Last month we eased Into a few definitions and a cursory examination of the tool startup order. 
I finished by suggesting that we'll "revisit" that demonic (for me) piece of code I called Generic 
Start. 

Let me preface that visitation by saying that the GS can be a time bomb. It really pays to learn 
how to do things right the first time because erroneous code might not produce problems right 
away (believe me, I know from experience, positively embarrassing experience at that, as y'all 
know). Your program might actually crash in a section of code far removed from the point of 
the error. Some programs might not crash at all - right away. They save their explosions for 
an opportune time (opportune being defined as that moment in which a crash will cause the 
most distressing mischief). 

This has always been the case with assembly code (aw heck, it's true in any programming 
environment), but it is particularly pervasive in my assembly language GS programs. The 
reason? I mentioned it briefly last month: the method Apple chose for passing parameters to 
and from the toolbox is to place them on top of the stack. This is not a bad thing, really, but if 
you don't watch your pushes and pulls (phas and plas or Pushwords and PullWords, etc.), you 
can get them out of balance. Since many of the tool calls require multiple parameters of 
various sizes, it is easier to screw them up than you might think. If you return from a 
subroutine with an extraneous parameter squatting astride the stack, for example, your 
program will try to return to the wrong address. It is more than likely that you will be 
teleported into oblivion. 



That said, we can attack the startup procedure again. Let's take it one step at a time. 
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A quick stroll down memory lane 

First, a fact: the GS memory is organized into 64K banks. Like the main mem and aux mem 
switching from days of old, you can have a program running in one bank that reads and writes 
data in another. For the purposes of startup, however, your program will usually want to read 
data from and write data to the same bank in which it lives. 

Unlike the good ol' 8-bit days (?) when you read a Softswitch or two, the 65816 CPU has a few 
new appendages which determine where the processor looks for instructions and data. These 
new limbs are called the program bank register and the data bank register. 

Getting the program bank and the data bank to be one and the same can be accomplished by 
grabbing the value of the program bank register and pushing it onto the stack. Then, in a not so 
subtle manipulation, yank the bugger back off the stack and stuff it into the data bank register. 

This effectively makes the data bank equal to the program bank. It is a maneuver you'll see 
often in GS code, and looks like this: 

Start phk ;push program bank register. 

plb ;pull back into data bank register. 

You might be wondering why you cannot set the data bank directly, akin to switching between 
mam and auxiliary memory on a lie or 128K He. The reason is that GS programs don't really 
need to know where they live, at least not very often. The Memory Manager takes care of that. 
Programs are therefore relocatable and have to set things like data banks indirectly (like the 
method used above). 

An aside - before I started working with the GS (last fall - yes, I am new at this, but I think I'm 
living, breathing proof that a rank beginner can really have good time with the machine), I 
thought that writing relocatable code for the GS meant jumping through all of the same hoops 
that it did for the 8 bit Apples. I thought I could never reference labels within my own program, 
for example. But lo and behold, Apple created a beast called the OMF (Object Module Format). 
This object code format includes a relocating dictionary which helps the GS (the system loader, 
actually) relocate your code on its own! Instead of writing your own relocator module or 
forcing your code to be absolutely and purely relocatable ala' the 8-bit world, the system 
worries about it for you. 

You can write fixed position code for the GS if you really want to since the design team built in 
all kinds of flexibility into the memory manager. But since relocation worries are pretty much 
behind us, it is almost pointless. 

Notice I said "almost". There are times and instances, I can imagine, wherein carefully crafted, 
fixed position code could blow the socks off standard OMF performance. But the instances are 
few and the disadvantages outweigh the advantages for all of the applications I'm inclined to 
write. (Incidentally and FYI - although I don't reccommend the idea, Micol Systems of Canada 
has created their own proprietary "fastload" object code format which greatly speeds up the 
rate at which a program is plopped into memory. There is, as they say, more than one way to 
skin a cat.) 

Back to our subject. The next step in the startup process is to start the Tool Locator. This is 
always the first tool started because it is the bus that all the others ride. We're dead in the 
water without it, if you'll excuse mixed metaphors. 
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The code looks like this: 

_TLStartUp ; start tool locator 

Roger is different... 

If you own Roger Wagner's Apple IIGS Assembly Language Programming for Beginners, you'll 
notice that the Tool Locator startup looks like this Instead: 

LDX #0201 ;Tool Locator Startup call number 

JSL $E10000 ;tool call entry point 

This example is taken from p. 321, if you care to look it up. The reason for the apparent 
discrepancy is that my _TLStartup is a macro name. The macro creates Roger's expanded 
code immediately above this paragraph. Roger discussed creating your own tool macros In the 
book, the reason being that the text mustVe been written before the Merlin disk Included all of 
the Tool.Macros macro libraries. I'm certainly glad they are there now! 

Needless to say, it Is much easier to work with the macro names than to do tool calls "by hand". 
Remembering the tool call numbers is next to impossible. But now you know that the macros at 
least include code to load the X register with the tool number and do a long jump (i.e. between 
64K banks) to the subroutine that handles toolbox calls. 



A tilde for Hilda... 

There's yet another class of macros on the recent Merlin disks, these by Dave Klimas (for you 
APW folks, there is a set of identical macros available from PunkWare, P.O. Box 874043, 
Wasilla, AK 99687-4073. Send $15 and ask for "PW Macros"). Called tilde macros because 
they're prescripted with the tilde character (~), they combine all of the "pushes" for parameter 
passing into one step. We'll look at these in more detail later in this series. Some programmers 
swear by them, but I think beginners like me need to grow into them. I find myself forgetting 
whether I'm working with single bytes, words (two bytes), or long words (four bytes). The tilde 
macros can make debugging a little more complicated for me because I cannot readily see the 
size of the parameter I pushed on the stack. Once you've got a given tool call down pat, though, 
you may grow weary of typing all of the PHAs, PushWords or PushLongs. That being the case, 
you're ready for Dave's macros. 

The Tool Locator toolset is a permanent resident of your GS - it's in ROM. In this respect it is 
different than most of the other toolsets. But we'll get to that next month. 

Until then, then. 
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